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eRe R RRR ARARAERERERAAARARAEAAAREAAEARERE EEE EARERAAEARAREEREREE eee 
'@ ® 
'® COPYRIGHT s 1978, 1980, 1982, 1984 B * 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
os ALL RIGHTS” RESERVED. * 
' % 
'® re fe heh IS FURNISHED UNDER A LICENSE AND MAY BE USED AND series * 
ONLY IN acre RDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

'® INCLUSION OF THE ABOVE gid aa, OTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAIL ABLE TO ANY * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'w TRANSFERRED. * 
' ea 
'® THE at ry ehe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORAT ON. * 
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ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Utility Library 

i ABSTRACT: 


This module contains callable procedures which allow user programs 
to access the CLI callback facility. The procedures in this module 


are: 

LIBSGET_SYMBOL get value of a CLI symbol 
BSSET- SYMBOL set value of a CLI symbol 
S$DELETE_SYMBOL delete a CLI symbol 


oS 
oO 


$SET_LOGICAL set value of a Vouperviser mode 
Logical name 

SDELETE_LOGICAL delete a supervisor mode Logi gat name 

$DISABLE_CTRL disable CLI out-of-band handl 

! SENABLE_CTRL re-enable CLI out-of-band handling 

i ENVIRONMENT: Runs only in USER mode - AST reentrant 

i AUTHOR: Ralph 0. Weber, CREATION DATE: 19-AUG-1981 

i { MODIFIED BY: 


1-004 = Original. ROW 19-AUG-1 ze" 
2- ener e sym name > 255 characters error to LIBS_INVSYMNAM,. 


1-003 - oe oe CLISC. SRVDESC. Improve code. SBL 18-Dec-1981 


a te Pet ba tee 


me a a a ad a = ot 8 = 4 2 SS SS SS 


NOUS WO OODNOUS WMO 


PPI & 


nn = 


LBsth CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1b- sen-1984 96:56:33 AX=11 oi} sar TE tt 


5 
>) 
6 
1 
bo¢ 
006 
0064 


— 


0-74 Page 
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1-004 = Correct all Faget ines to LIGSANAL YZE E - SDESC. DGP 31-Dec-1981 

1-005 = Correct PSECT definitions. SBL 4 

1- 6 - Fix reference to CLIMSG.B32 2 to, uge “SRLS a3 tt L18$ MH 14-Feb-1982 
i d= - Allow symbol name = oe w 198 

' 1-008 = Use new callbacks to si lew ttemlists aed So. Fe sen STAN 26-Feb-1984. 
Bg 09 = Fix bug in way pass itemlist to callback. STAN 10-JUL-1984. 
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eclarations 4-Sep-1 VMSLIB.SR 
3 $8 5 ] XSBTTL "Declarations' : 
3 é 5 ! SWITCHES: : 
; 70 1 : 
$ a! f : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); : 
ee ore 1! ; 
2 a 75 1 =! LINKAGES: 3 
: OR oe 
; 7 076 1 LINKAGE LISS ANALY E_SDESC » B_LINK = = (REGISTER=0; REGISTER=1,REGISTER=2): ° 
. on. oa $76 1 TUSED ge gest 7,8,9,10,11) ; 
:; 79 143 1 3 
; 80 079 1! 3 
: ot 080 1 ! TABLE OF CONTENTS: 3 
3 ¢ 081 1! 3 
ae 0 ; 1 3 
3 84 08 1 eter y ROUTINE ° 
3; 6 | 689 084 1 LIBSGET_SYMBOL, ! get value of a CLI symbol : 
; & 0085 1 LIBSSET_SYMBOL, ! set value of a CLI symbol ; 
: H 00 7 1 LIBSSET— “LOGICAL, ' set value of a supervisor-mode 
3 8 0 1 ' Logical name 
3 34 43 : LIBSDELETE_LOGICAL, i @ ee Lote a supervisor-mode logical 
; 090 1 LIBSDISABLE_CTRL, ! disable CLI out-of-band recognition 
; 4 0091 1 LIBSENABLE_CTR ' re-enable CLI out-of-band recognition 
; 9 009¢ 1 LIB$S$BUILD~SYMBOL _NAME ; i build a good symbol name 
: 94 0093 1 
: 95 0094 1! 
H a8 B22 1 ! INCLUDE FILES: 
a 2 0 1! 
; B 0097 1 
3 190 443 1 LIBRARY ‘SYSS$LIBRARY:STARLET'; ! System symbol definitions 
; 6101 100 1 REQUIRE ‘SHRLIBS:CLIMSG'; ! CLIS_ symbols 
3 I9¢ 380 1 
; 10 81 1! 
3; 6104 § 1 ! MACROS: 
: 193 1! 
ER 3 F MACRO ROVEDESC builds a S-t type string descriptor at _TO 
; 107 t= > which points to the same data area as ante OP ppintes td by 
; 108 1! the gr Sone ioter at _FROM. NB 
: 192 1! oeece tor will be used only by SYSSCLI ~ Bog ig eas he 
; 110 San and class f 9288. only the LENGTH and POINTER fields 
: 13) 3 ! i. "bullt by MOVEDESC. 
3 118 40391 1 MACRO MOVEDESC (_FROM, _TO) = 
: #6116 fl 38 1 IN 
: 115 m 0395 1 REGISTER 
3 118 m 0394 1 RET_STATUS = 0; 
ey 4m 0395 1 RET_STATUS = LIBSANALYZE_SDESC_R2 ( FROM; 
3 118 fl 38 1 BLOCK f. TO, DSCSW_LENGTA; , BYTE) 
: 11 m 0397 1 BLOCK C~TO. DSCSA-POINTER; , BYTE ); 
; 120 ‘| 38 1 IF NOT »RET_ STATUS” 
Gey fi 1 HEN 
s Se m 0400 1 RETURN (.RET_STATUS); 
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i END2; 
5 ! 
4 i EQUATED SYMBOLS: 
4 NONE 
FIELDS: 
; | NONE 
4 { PSECTS: 
PSEC 
CODE = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
PLIT = “LIBSCODE (READ, NOWRITE, EXECUTE, SHARE ADDRESSING MODE (WORD-RELATIVE)) 
= “LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING MODE (LONG RELATIVES 
GLOBAL = _LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIV 
OWN STORAGE: 
NONE 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
S ° ! CLI Callback Routine 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK 
Analyze a string descriptor 
LIBSSCOPY_DXDX, Copy strings of any type 
LIBSSGET1_DD, 


to any type 
Get a dynamic string 
LIBSSFREET_DD; 
EXTERNAL 


Free a dynamic string 
LIBSAB_UPCASE; 


weir LITERAL 
LIBS_INVARG 


ee | 


the string upcase table 


wn 


Condition value symbols 
Invalid argument 


Fo 
GREW US SSSH Hs OO NOP OO NOME OI BOSS Roe 


DONA UNE WN" O OONOUS WHR) O”O 
RRRRLERKRRERE 
PRES FWWWWWWII I onnononononononty 2 2 


OPO SSIS SL LILI LAL I LILLE SF SES ES SE 


Be Se Oe Ge Se Se Se Ge Fe Se FH Se Se Ge Se Se GaSe Se Se Se Ge Ge Ge Ge Se Ge Se Ge oe Ge Ge Ge SH SE Se Se Se Se Se Ge Ge See Ge Se Se Seas 


ee ee ee ee 
ee em ed a a ed ed od “a td 8 od 2 2 4 2 2 


' 
] 
4 LIB$~WRONUMARG, ! Wrong number of arguments 
LIBS_INVSYMNAM, ' Illegal symbol name 
LIBS_NOSUCHSYM, ! No such symbo} 
4 LIBS_INSCLIMEM, ' Insufficient CLI memory 
4 LIBS_AMBSYMDEF , ! Ambiguous symbol defined 
0 4 LIB$_NOCLI ' No CLI present 
71 44 LIBS"UNECLIERR; ! Unexpected CLI error 


Ljestii. a } 


Bae Se Be Se Be Se Oe Se Se Se BH Se Se Fe Ge Se FH Se Se Se Fe Fe Be Se Se FH Se Se Ge Se Se Se SF Se Se SH Se Se Se Se Se Se Se Se Se FH Se Se SF See Se Ge Se ee Se ee 


~~ 
wn Mw 


a a ss a as as = 1s as as a 4) ss — 9 a ss 1 te 


BSSVERRUNLS Save nr uvsvsoSevenPuVvrGowwenkwocoo 


SNAPP AAA AA AAA MINI aie 
WN "CO CONOUS UR “"OOONOULS UNO Fer 


SAN 


ODONOUSE 


Mlwn— 


IBSCLLACALLBACK = CLI callback Intertace Proce 1b-Sep-1986 08:22:35 YAK-II BL igg-82 y 


— 


me cee ee ce ce me me ee ee a ee ed ed od od = wd dd dd od od 


2 v4.07 ° 
Sc ital .6$2:1 age 53 


ZSBITL ‘LIBSGET iy MB ‘ = get value of a CLI symbol" 
GLOSAL ROUTIN CIBSGET_ SYMBOL ( ' get value of a cil qztet 
sine : REF BLOCK C, evTed. ! symbol string descr 
RET BUF : REF BLOCK BYT ! return value str m9 Gescriptor 
RETLEN: REF VECTOR C, WORDS, i no. bytes returned (opt.) 
F VECTOR C, LONG) ! symbol table searched (opt.) 


'e¢ 


i | FOS DESCRIPTION: 


seyeer gs vneoL fies the value of the poes tr rer CLI symbol and returns 
in the apes ed buffer. Before t Be “ere however, the 

a, * ed symbo 3 is u goers so se tw t better match s symbol 
names formed “y fhe . the ape table is scanned first for 
the s poke one f A “aatching, Syaset is found there, the global- 
symbo rabl 9 scanned. Th of the returned value and a mode 
value, aieette ng the table in rr th the symbol value was found, are 
opt tone) y returned when parameters to receive them are supplied in 

e calling sequence. 


Numeric values are automatically translated to decimal strings before 
being returned. 


The optional mode value gen be one of: 
LIBSK_CLI_LOCAL_SYM = 1 ==> Local symbol table name 
LIBSK-CLI-GLOBAC_SYM = 2 ==> Global symbol table name 
These saketa” are “gb fined in SLIBCLIDEF. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSGET_SYMBOL (symbol.rt.dx, retbuf.wt.dx 
C; retlen.ww.r C, mode.wl.rJJ) 


FORMAL PARAMETERS: 
symbol.rt.dx - A + ot iy assed by descriptor, which contains the 
symbol to be searet ed for. An upcased copy of this 
string will actually be used for the searc 


retbuf.wt.dx - A string, passed by descriptor, into which the value 
of the symbo ound, will be written. 


retlen.ww.r = An apttonat word which, if present, will receive 
the length of the returned symbol value string. 


mode.wl.r - An optional longword which, if present, wits receive a 
value [aercet tag coele in which symbol was found. 
pecs rene verve 
$x_CLl *rocAL "SYM ==> Local symbol table name 
CIBSK~ CLI-GLOBAC_SYM ==> Global symbol table name 
IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
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NONE 
COMPLETION STATUS: (or ROUTINE VALUE:) 


S$_NORMAL perset successful completion 
LIBS_INVARG nvalid argument 

LIBS_INVSYMNAM Invalid symbol name 
LIBS_NOSUCHSYM No such symbol found 
LIBS_INSCLIMEM Insufficient CLI memory 

LIBS_ No CLI present to perform function 
LIBS_UNECLIERR Unexpected CLI Error 


SIDE EFFECTS: 


WARNING: 

Although this procedure performs some checks on the validity of 
syabot names passed to it, some symbol name considered valid by 
this procedure will be considered invalid by DCL. Callers of this 
procedure are responsible for insuring that symbol names passed to 
this procedure contain only alphanumeric characters. 
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BEGIN 

BUILTIN 
NULLPARAMETER; 

OCAL 
CLI_REQ_ BLOCK : BL Ore CCL TOE .SRVOESC. BYTE], ! A CLI request block 
DYN-STRING : BLOCK (8, BYTE ' Descriptor for dynamic string 
RETORN_STATUS : BLOCK C4, BYTE); i A return status value 


'¢ 
Initialize CLI Command request block. 


RETORN_STATUS = LIBSSBUILD SYMBOL_NAME( .SYMBOL DYN_STRING, 


+ 
Get CLI symbol value. 


RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


'¢ 
: Free dynamic string used for upcased symbol name. 


LIBSSFREE1_DD( DYN_STRING ); 


'¢ 
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-TITLE LIBSCLI_CALLBACK LIBSCLI_CALLBACK = CLI Callbac 
3 k Interface Proce 
IDENT \vV04-000\ 


.EXTRN SYSSCLI, LIBSANALYZE SDESC R2 
-EXTRN LIBSSCOPY_DXDX, LIBSSGET1 OD 
-EXTRN LIBSSFREET DD, LIBSAB_UPCASE 
EXTRN LIBS_INVARG, LIBS_WR RG 
ZEXTRN LIBS"INVSYMNAM, LIBS$_NOSUCHSYM 
-EXTRN LIBS"INSCLIMEM, LIBS-AMBSYMDEF 
EXTRN LIBS"NOCLI, LIBS_UNECLIERR 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


003¢ 00 .ENTRY L BSGET SYMBOL. Save R2,R3,R4,R5 ; 0451 
é AG 6OAE OE 9 HOVAB =92(SP)°" SP ; 
£ MOVC , (SPS, #0, #84, CLI_REQ_BLOCK > 0546 


f 
LIBSCLI]_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22: AX-11 Bliss-32 V4.0-74 L 
vibe tIBSGet-SYRBOL - get value of a CLI symbol 1278601382 96:58:33 VMSLIB’SRETLTSCL ICAL 69251 v0 
: 7 } Process returned symbol value and requested optional values. ; 
: IF ,RETURN, STATUS : 
3 HEN 3 
3 BEGIN 3 
3 § LOCAL 3 
; 9 sf DE REF BLOCK fs. exted; $ 
3 94 7 CLI_DEST = CLI_REQ nae CLI$Q_VALDESC); : 
: 295 te RETORN STATUS = LIB SCOPY DXDX UeceL pest. .RETBUF); ; 
; + 7 IF NOT NULLPARAMETER (3) AND .RETU N_STATUS : 
; 74 THEN 3 
3 38 75 4 BEGIN 3 
FY 6 4 LOCAL 3 
3 00 77 4 ADDRESS, : 
3 4 8 4 LENGTH; 3 
; ¢ 79 4 LIBSANALYZE_SDESC_R2 (.RETBUF; LENGTH, ADDRESS ); ; 
; 03 0 4 RETLEN OJ = MINU"(.LENGTH, .CLI_DESC CDSCS$W_LENGTH)); ; 
é 05 2 § IF NOT NULLPARAMETER (4) é 
; 306 5 THEN 3 
; 44 ; : MODE CO] = .CLI_REQ_BLOCK CCLISB_RQSTATI; : 
; 309 5 6 ELSE IF (.RETURN_STATUS CSTSS$V_FAC_NO] EQL CLIS_FACILITY) ; 
; 310 5 THEN 3 
ae )) | 5 RETURN_STATUS = : 
3 \¢ 589 N 3 
; ‘7 2 ayers «RETURN_STATUS OF : 
3 15 236 er is-ees ya : LIBS$_NOSUCHSYM; 3 
: 18 59 CLIS_BUFOVFJ : LIBS_INSCLIMEM; é 
3 1 594 CLIS_INVREQTYP) : LIBS_NOCLI; ° 
; 318 0595 OTHERWISE) : LIBS"UNECLIERR; : 
3; #319 236 TES 3 
3 0 59 END; 3 
; 1 598 3 
H § 5444 RETURN (.RETURN_STATUS); : 
; 4 0601 END; ! End of routine LIBSGET_SYMBOL : 


5 
0054 = 8F 00 6 ’ 


; Routine Size: 213 bytes, Routine Base: _LIBSCODE + 0000 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1b-se “1 22:3 AX=11 Bliss-32 V4.0-74 P LJ! 
yoe~000 tIBSGeT“SYRBOL = get value of a CLI symbol 1 7330-1382 93:35:23 — hsule’sre (isce tea 882;1 _ v0 

08 A : $ 

AE 5 OF MOVB #5, CLI_REQ_BLOCK : ; 

88 AE BA 80 5 vw #16, CLT REQ BL OCK+1 : 3 

C AE 9F 0001 PUSHAB CLI’REG_BLOCR+ : ; 

et ee a : : 

0000v CF F CALLS i. LIB$$BUILD_SYMBOL_NAME F : 

3 Dd VL RO, RETURN_STATUS : ; 

08 Ae 5F 00058 PUSHAB REFURN STATUS. ve ; : 

000000006 99 FB CALLS” ATL "SYSSCLI : ; 

Q 00 MOV. RO, RETURN, STATUS : ; 

000000006 09 oj FB O005A CALLS #1, LIBSSFREE1_DD : ; 

4 5 00041 BLBC RETURN STATUS, 3 ; ; 

54 14 AE SE 00044 MOVAB CLI_REG_BLOCK+12, CLI_DESC : ; 

oat: a : : 

000000006 0 03 FB 00040 CALLS #e,"LiBsscopy DXDX : ; 

5 D 54 MOV. = RO, RETURN, STATUS ; ; 

0 ¢ 9 57 CMPB (AP), # : ; 

0 1F OOO5A BLSsU 2 : ; 

= ihe ae fun : 2 

Be BRR || RR Bienes. 2 3 : 

oooo00006 06 16 re} 8 LIBSANALYZE SDESC_R2 : ; 

51 64 10 00 ED 0006 cMPZv #0, #16, (CCI_DESt), RI ; ; 

51 4 3¢€ 0007 MOVZWL (CLI_DESC), R1 : ; 

oc ac 1 BO 00078 1s MOVW RI, SRETLEN : : 

04 6 1 0007C 2$ CMPB (AP), #4 : ; 

1F QOO7F BLSSU 8$ : : 

e EGRe ot gun ; : 

10 BC 08 AF oA 0086 ROVZBL CL 1_REQ_BLOCK*S, @MODE : 

03 53 0c 10 if Q8 38: CMPZV #16, #12, RETURN, STATUS, #3 : ; 

00038140 8F 3 p 0094 CPL RETURN_STATUS, #229696 ; 

53 000000006 8F 06 0 MOVL AL IBS_NOSUCHSYM, RETURN. STATUS ; 

00038018 8F : D1 Q00A6 S$: CHPL_ «RETURN STATUS, #229400 F 

53 000000006 8 0 Q00AF ROVL AL IBS_INSCLIMEM, RETURN. STATUS ; 

00038822 8F 3 p] es 6$ CMPL RETURN. STATUS, #231458 3 

53 000000006 &F 06 cl MOVL —#LIBS_NOCLI, RETURN_STATUS ; 

$3 000000006 BF 0 QOOCA 7s: MOVL #LIBS_UNECLIERR, RETURN_STATUS : ; 

0 3 BO ) 8$: ROVE RETURR_STATUS, RO ; 3 


a 8 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Pa 10 Lil 
the 55d Li 33 SYMBOL = set value of a CLI symbol 12-808- 1382 96:38:33 VMSLIB SREMLTBCL ICAL 642: 1 - (4) v0 
; ° ZSBTTL leset FYeOL = set value of a CLI symbol’ 
GLOBAL ROUTINE C18$S SYRROL ( ' set value of a CLI syabol 
SYMBOL: REF BLOCK [, BYTE], ' symbol string descriptor 
VALUE: REF BLOCK (, BYTE), ' desired symbol value descriptor 
aye MODE: REF VECTOR L, LONG ' desired symbol table (opt.) 


eo 


i FUNCTIONAL DESCRIPTION: 


VEN —OOONO 


This routine defines a CLI symbol giving it the value specified by 
call gergneter value. Before the actual definition, however, the 
specified symbol name is upcased so that it will better match symbol 
names formed by the CLI. An attempt to define a CLI symbol which 
already exists results in the value of that symbol being updated to 
the new value. The optional mode orgunent apec ities a code 
(LIBSK_CLI LOCAL SYM or LIBSK_CLI_GLOBAL_SYM) which names the syatet 
table on which the define/update Sperat on will be performed. If the 
mode argument is omitted, the the local symbol table is used. 


oO 
Oo 
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PAP sO OO9 NOUN UN O00 OM PU ODO ROO Pe 


The optional mode value can be one of: 
LIBSK_CLI_LOCAL_SYM = 1 ==> Local symbol table name 


LIBSK-CLI-GLOBAC_SYM = 2 ==> Global symbol table name 
These symbols are defined in SLIBCLIDEF. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSSET_SYMBOL (symbol.rt.dx, value.rt.dx 
- mode.rl.rd) 


FORMAL PARAMETERS: 


symbol.rt.dx - A osring. assed by descriptor, which contains the 
symbol to be defined or modified. An upcased copy of 
this string will actually be used for the define 
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1 * or update operation. 
8 3 value.rt.dx =-A string. passed by descriptor, containing the value 
¢ see to be given to the symbol. 
o8 Bee¢ mode.rl.r - An optional longword which, if present, contains a 

064 value indicating into which table the symbol is to be 

68 4 placed. If this parameter is omitted, the local 

9 5 symbol table is used. 

0 g Possible values are: 
71 LIBSK_CLI_LOCAL_SYM ==> Local symbol table name 
: $68 LIBSK-CLI-GLOBAC_SYM ==> Global symbol table name 
74 50 IMPLICIT INPUTS: 
75 51 
7 26 NONE 
; 7 IMPLICIT OUTPUTS 
§ 55 
30 $ NONE 

2 658 COMPLETION STATUS: (or ROUTINE VALUE:) 


9 
LAPSE} .CALLBAC LIBSCEL -EALLBACK = CLI Callback Interface Proce 18-Sep-1984 96:36:35 AX-11 Oi rear ig er ae 
V04- LIBSSET_SYMBOL = set value of a CLI symbol 14-Sep-1984 15:27:4 VMSLIB.SRCILIBCLICAL.B52;1 
3 3 $38 1! 
; 660 1! S$S$$_NORMAL pereri successful completion 
; 5 2 1! LIBS_INVARG Invalid argument 
; ee 1} LIBS_INVSYMNAM Invalid symbol name 
; 5 re 1! LIBS_INSCLIMEM Insuficient CLI memory 
3 8 64 1! LIBS_AMBSYMDEF Ambiguous CLI symbol defined 
3 6oey 665 1! LIB$_NOCLI No CLI present o perform function 
; rs 208 ! } LIBS_UNECLIERR Unexpected CLI Error 
; 3 668 | t SIDE EFFECTS: 
; 3e $76 ! A CLI symbol is created or updated. 
: 39 ore | i WARNING: 
; 0675 1! Although this procedure performs some checks on the validity of 
: 398 0674 1! syasot names passed to it, some symbol name considered valid by 
; 399 0675 1! this procedure will be considered invalid by DCL. Callers of this 
; 400 O76 1! procedure are responsible for insuring that symbol names passed to 
: 401 677 1! this procedure contain only alphanumeric characters. his 
; 40 678 1! procedure is used to create symbols whose names contain invalid 
; 40 0679 1! characters, geet ing those symbols can be accomplished by logging 
; 404 0680 1! out and logging back in. 
RB 
; 409 bess 1 
ee 3 eee 
: 410 0686 BUILTIN 
: ree se 4 NULLPARAMETER; 
; a1 $689 LOCAL 
> 416 0690 CLI_REQ_BLOCK : BLOCK CCLISC_SRVDESC, BYTE], ! A CLI request block 
: 415 0691 DYN STRING : BLOCK (8, BYTE) ! Descriptor for dynamic string 
; 416 069¢ RETORN_STATUS : BLOCK C4, BYTE); i A return status value 
Pe dete gS 
: 2 , 069 Initialize CLI Command request block. 
: 4 é 698 2  CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
> 4 0699 CLI_REG_BLOCK CCLT$B_RQTYPE) ="CLISK_CLISERV; 
> 424 0700 BEGIN 
: 425 701 LOCAL 
: 4 $ 7 4 STRING : REF BLOCK (8, BYTE); 
; 4 7 STRING = .VALUE; 
; 4 8 ? 4 IF .STRING COSC$W_LENGTH] GTRU 255 THEN RETURN LIBS_INVARG; 
: 430 ? MOVEDESC ( .VALUE, CLI_REQ BLOCK CCLI$Q_VALDESC) ); 
> 431 7 RETURN_STATUS = LIBSS$BUTLD_SYMBOL_NAME( 7SYMBOL, DYN_STRING, 
: 4 : 7 g CLI_REQ_BLOCKCCLIS$Q NAMDESC) ); 
s. § 7 IF NOT .RETURN_STATUS TREN RETURN .RETURR_STATUS; 
: ¢ 5 a '¢ 
; : at Setup service code indicating which symbol table. 
; 4 714 2 CLI_REQ_ BLOCK CCLISW_SERVCOD) = 
3; «6 715 BEGIN 


9 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16- Sep-1984 AX=-11 Bliss-32 V4.0-74 Page 12 
be-000 LIBSSET_SYMBOL = set value of a CLI symbol =8ep-19 4 94 $6: 3 VMSLIB’S SREIL 18clt ear BS2:1 . (4) 
: 440 Tg IF NULLPARAMETER (3) 
: 441 71 THEN 
; 44 ah CLISK_DEFLOCAL 
> «44 71 ELSE 
; 446 720 CASE .MODE (0) d's LIBSK_CLI_LOCAL_SYM 
; «4445 721 LIBSK-CLI-GLOBAC_SYM OF 
H rr | 7 ¢ ET 
; 44 7 LIBSK_CLI_LOCAL_SYM) : CLISK_DEFLOCAL; 
; 448 724 LIBSK- cL}.6 GLOBAC_SYM) : CLISK~ DEF GLOBAL; 
> 449 725 OUTRANGE : RETURN (LIB$_INVARG); 
; 450 7 § TES 
3; 451 7 END; 
; 6 ¢ 726 
; 45 0729 1+ 
3 $28 f 9 ; Set CLI symbol. 
: 496 , j RETURN_STATUS = SYSS$CLI (CLI_REQ_BLOCK); 
; 458 734 1+ 
; $23 af 2 Free dynamic string used for upcased symbol name. 
; 461 0737 LIBSSFREE1_DD( DYN_STRING ); 
; 46 Bf 8 
; 46 739 + 
3 ree: Beet a Adjust error return status, if any. 
: 466 544 IF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NOJ EQL CLIS$_FACILITY) 
; 467 074 THEN 
: 468 0744 RETURN_STATUS = 
: 469 0745 N 
; 470 Bes SELECTONE .RETURN_STATUS OF 
3; «471 074 ET 
; 47 0748 CLIS$ Se 3 LIBS_ EdD bay pp 
; 47 0749 CLIS_ABSYMD) : LI oo ha _ : 
; 476 0750 CLIS-INVREQTYP] : LIBS_N 
> 475 0751 OTHERWISE) : LIBS UNECL ERR: 
: 476 B26 TES 
3 477 75 END; 
3; «478 0754 
3; 479 0755 RETURN (.RETURN_STATUS) ; 
: 480 Br 38 
: «481 757 END; ! End of routine LIBSSET_SYMBOL 
003C 6008 ENTRY LiBs SET me eee Save R2,R3,R4,R5 ; 0603 
5E AG E 9€ 0000 MOV (SPDs 3 
0054 =F 00 6E 08 bt 2c B00 MOVC #0, (SPS, 40, #84, CLI_REQ_BLOCK : 0698 
08 af Os 4 F MOVB #5, CLI_REQ oo ; 0699 
; 08 ot D 3 MOVL VALUE, STRIN : 0703 
OOF F F g # 1 CMPW STRING) #255 ; 0704 
0 AL 00 O00TE MOVE” VALUE, RO : 0706 
000000006 06 % § JSB LIBSANALYZE_SDESC_R2 : 


d 9 
LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 13 
ye 000 LIBSSET_SYMBOL = set value of a CLI symbol 1 =Sep- 38 96:38:33 VMSLIB.SRC Cibct tea 6$2:1 ’ (4) 
14 AE ) 8 MOVW Ri. CLI_REQ_BLOCK+1 ; 3 
18 AF D MOVL R cL REQ~BLOCK+1 : ; 
0 6 BLBS REf_STATUS, : : 
C AE OF 4 1$ PUSHAB CLI_REQ_BLOCK+4 : 3 
4 AE OF PUSHAB DYN -STRING : : 
4 aC DD A PUSHL SYMBOL : : 
0000v CF F CALLS we, LIBS$BUILD_SYMBOL_NAME : ; 
g D 4 MOVL RO, RETURN STATUS : 3 
: : 4 BLBC RETURN STATUS, : : 
0 6c 91 4 CMPB (AP), # : : 
16 1F 8 BLSSU. 4 : : 
oc ac b 4D TSTL 12 (AP) : : 
111 05 BEQL 4 : : 
01 01 0c BC CF 0005 CASEL @MODE, #1, #1 : : 
0011 000¢ 0057 2$: . WORD $$- ; : 
50 000000006 8F D0 9005 3$: MOVL $$ #LIBS_INVARG, RO : : 
04 6 RET : : 
50 02 DO 00063 4$: MOVL #2, RO : : 
11 9066 BRB x3 : : 
50 DO 00068 5$: MOVL #3, RO : : 
09 «AE 0 BO 00068 6$: MOVW RO, CLI_REQ_BLOCK+1 ; ; 
08 AE OF O006F PUSHAB CLI_REQ~BLOCK : ; 
000000006 99 gi FB 00 : CALLS #1, SYSSCLI : : 
2 0 pO 0007 MOVL RO, RETURN_STATUS : : 
5E dD 0007C PUSHL SP : : 
000000006 00 o] FB 0007e CALLS #1, LIBSSFREE1_DD : : 
44 s E 0008 BLBS |§ RETURN STATUS, ~11$ ; ; 
03 52 oc 10 ED 00088 CMPZV #16, #T2, RETURN_STATUS, #3 : ; 
3D 12 0008D BNEQ 11$ : 3 
00038138 8F 52 D1 0008F CMPL §_ RETURN_STATUS, #229688 : : 
09 i 0096 BNEQ 7$ ; : 
52 000000006 &F m0 0098 MOVL #1 1B$_INSCLIMEM, RETURN_STATUS : , 
000381A0 = &F 3 D1 000 7$: CMPL §_ RETURN_STATUS, #229792 ; 3 
0 if O0A8 BNEQ =8$ ; : 
52 000000006 8F DO OODAA MOVL #L 18$_AMBSYMDEF , RETURN_STATUS : ; 
19 11 00081 BRB 11$ : : 
00038822 = 8F 52 D1 00083 8$: CMPL § RETURN_STATUS, #231458 : : 
09 if OOBA BNEQ 10$ : : 
52 000000006 8F 00 0008 MOVL #18$_NOCLI, RETURN_STATUS : : 
7 11 000C3 9$: BRB 1 : 3 
58 000000006 8F 9 C5 10$: MOVL LIBS _UNECLIERR, RETURN_STATUS : : 
2 0 CC 11$:  MOVL | RETURN_STATUS, RO : ; 
04 OOOCF RET : : 
; Routine Size: 208 bytes, Routine Base: _LIBSCODE + 00D5 : 
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LIBSCLI_CALLBAC CLI_CALLBACK = CLI Callback Interface Proce 1b-5e 1984 02:22:3 AX-11 Bliss-32 V4.0-74 Page 14 L 
ve DELETE SYMBOL ~ delete @ CLI symbot 1e-88b-1982 99:55:23 «= Hs Lie Saeiiiacl tea e$2.1 ve} v0 
: 483 1 ZSBTTL ah LOPDELETE SYMBOL = delete a CLI symbol" ; 
; 4 1 GLOBAL ROUTINE LIBSDELET =pYMEOL i ! set value of a CLI symbol : 
; 485 1 SYMBOL: REF BLOCK [, BY f ’ ! symbol string descriptor ; 
3 ? : MODE: REF VECTOR C, LONG ! desired symbol table (opt.) : 
; = $ 
3 6 1 ; 
; 489 1 le¢ : 
; re : } FUNCTIONAL DESCRIPTION: : 
: 138 1! This routine deletes a CLI symbol. Before the actual deletion : 
; 49 es however, the specified symbol name is upcased so that it will better ‘ 
> 494 1} match gyatet names formed by the CLI. The opt tonal mode orogens ‘ 
; 495 1! specifies a code (LIBSK_CLI_LOCAL_SYM or LIBSK_CLI_GLOBAL_SYM) which ‘ 
: 496 1! names the symbol table on which the delete operation will be performed. : 
3 rea ! f the mode argument is omitted, the the local symbol table is used. : 
: 499 ii The optional mode value can be one of: ; 
; 500 1! -CLI_LLOCAL_SYM = 1 ==> Local symbol table name ; 
; 501 +: LIBSK_-CLI-GLOBAC_SYM = 2 ==> Global symbol table name ; 
; abe ! These symbols are defined in SLIBCLIDEF. : 
; Hg i CALLING SEQUENCE: : 
; oe ! ret_status.wlc.v = LIBSDELETE_SYMBOL (symbol.rt.dx C, mode.rl.rJ) : 
: 508 | FORMAL PARAMETERS: ; 
: 310 1 symbol.rt.dx - A err assed by descriptor, which contains the : 
3 313 1? symbol to be defined or modified. An upcased copy of ; 
; i : : this string will actually be used for the deletion. : 
3 314 1 mode.rl.r - An optional longword which, if present, contains a ; 
; 315 90 1! value indicating from which table the symbol is to be ; 
; 516 sae deleted. If this parameter is omitted, the local : 
s Sir 4 1: symbol table is used. ‘ 
; 518 9s i! Possible values are: : 
3s D9 94 1! LIBSK_CLI_LOCAL_SYM ==> Local symbol table name ; 
3 ¢59 2 ! LIBSK-CLI-GLOBAC_SYM ==> Global symbol table name : 
; 2 97 1 IMPLICIT INPUTS: ; 
3 98 1! : 
3 4 99 1! NONE : 
3 5 00 1! : 
3 § 4 ! : IMPLICIT OUTPUTS: : 
> 528 08 1 | NONE : 
Py ] Be 7% ° 
: 1 5 ! : COMPLETION STATUS: (or ROUTINE VALUE:) : 
; ¢ 09 1/ SS$_NORMAL Normal successful completion : 
; 3 1! LIBS_INVARG Invalid argument : 
; 1! LIBS_INVSYMNAM Invalid symbol name : 
3 5 10 1! LIBS_NOSUCHSYM No such symbol found ; 
: 7167! LIBS_NOCL No CLI present to perform function : 
3 33 \¢ : LIBS“UNECLIERR Unexpected CLI Error : 
; 14 1! SIDE EFFECTS: ; 
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BACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 
YMBOL = delete a CLI symbol 19-808- 1382 96:35:23 VMSLIB.SRC riget eer BS251 


WARNING: 

Although this procedure gy some checks on ie val tei ty of 
symbol names passed to it, some symbol name considered valid by 
this procedure will be considered invalid by DCL. Callers of this 
procedure are responsible for insuring that symbol names passed to 


C 

T 

' 

A CLI symbol is deleted. 
! 

1 

' 

this procedure contain only alphanumeric characters. 
1 


'¢ 


I 
L 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
CLI_REQ_ BLOCK : aL OFF CCL Et -SRVOESC., BYTEJ, ! A CLI request block 
DYN-STRING : BLOCK (8, BYTE ! Descriptor for dynamic string 
RETORN_STATUS : BLOCK (4, BYTE); ! A return status value 
Initialize CLI Command request block. 
"  CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
RETURN_STATUS = LIBS$BUILO_SYMBOL_NAME( .SYMBOL, DYN_STRING, 
1 REG BLOCK CCL Isa NAMDESC) ); 


L 
IF NOT .RETURN_STATUS TREN RETURN .RETURR STATUS; 
CLI_REQ_BLOCK [CCLISB_RQTYPE) = CLISK_CLISERV; 


+ 
: Setup service code indicating which symbol table. 


CLI_REQ BLOCK CCLIS$W_SERVCOD) = 
IF NULLPARAMETER (2) 
CLISK_DELELCL 
ELSE 


CASE .MODE CO] FROM LIBSK LOCAL_SY 
TO LIBSK 


CLI. SYM 
ie 0 “CLIZGLOBAC_SYM OF 
LIBS$K_CLI_LOCAL_SYM]_ : CLISK_DELELCL; 
K CLI—GLOBAC SVM] : CLISK”DELEGBL: 
GE RETURN (LIB$_INVARG); 


‘+ 
Delete CLI symbol. 
RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


'¢ 
! Free dynamic string used for upcased symbol name. 
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BACK = CLI Callback Intertace Proce 18-Sep-1984 03:22:35 yayett 


ALL 
E_SYMBOL = delete a CLI symbol 14-Sep-1 


¢ 
T 
le 
LIBSSFREE1_DD( DYN_STRING ); 


1+ 
‘_ Adjust error return status, if any. 


F_NOT .RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NO] EQL CLIS_FACILITY) 
RETURN_STATUS = 
SELECTONE .RETURN_STATUS OF 


T 
CLIS_UNDSYM] : LIB$_NOSUCHSYM; 
CLI$ INVREQTYP] : LIBS=INOCLI; 
COTHERWI LIBS"UNECLIERR; 
END; 
RETURN (.RETURN_STATUS); 
END; ! End of routine LIBSDELETE_SYMBOL 
o03¢ 90000 ENTRY LIBSDELETE SYMBOL, Save R2,R3,R4,R5 
5E AG 6 AE. OSE +0000 MOV -92(SP), § 
00 6£ ‘ 00 2¢ 2099 mMOVCS #0, (SPS, #0, #84, CLI_REQ_BLOCK 
C AE OF O000F PUSHAB CLI_REQ_B! OCK+4 
4 AE OF Bole PUSHAB DYN STRING 
4 ac OD 9 PUSHL SYMBOL 
0000v CF FB 00018 CALLS 3, LIBSSBUILD_ SYMBOL _NAME 
2 D 901 OVL R RETURN STATUS 
4 0 BLBC RETURN N_STATUS, 
08 A 05 90 000 VB CLT_REQ_BLOCK 
0 6C 91 000 CMPB 128) ° #2 
16 1F OOO2A BLSSU-2$ 
08 ac 03 002C TSTL (AP) 
11 13 O00eF BEQL $ 
01 01 08 BC CF 00 1 CASEL SMODE. 1, #4 
0011 000¢ 0036 1$ WORD q3-! 7 
50 000000006 8F B0 3A MOVL § #LIBS_INVARG, RO 
4 00041 RET 
50 08 DO 00042 2$: MOVL #11, RO 
11 BRE 4s, 
50 3 4h 47 3%: MOVL 
09 «AE 8 4A 4$: MOVW re REQ pBLocKet 
08 AF F af PUSHAB a 
000000006 99 FB CALLS ‘ 
0D 8 MOVL ey STATUS 
- DD B PUSH 
000000006 9 FB D CALLS LIBSSEREE! -0p 
g E 64 BLBS fs fuk iy ATUS, 
52 C 10 €D 00067 CMPZV #16, #72, RETURN_STATUS, #3 


Liege 32 v4.0- 
SRCILIBCLICAL 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Pa 7 L 
oe 000 LIBSDELETE.SYMBOL - delete a CLI symbol 1ergeP= 1382 98:36:23 | OMe eek hesr Pe Vek 78s. ve vi 
1 6C BNEQ 7$ : 
00038140 8F b i CHL RETURN. STATUS, #229696 + 0884 
52 000000006 &F p f MOVL #LIBS_NOSUCHSYM, RETURN_STATUS : 
00038822 8F 3 p p 5$: CPL RETURN_STATUS, #231458 ; 0885 
52 000000006 F p 9 MOV #188 NOCLI, RETURN_STATUS : 
52 000000006 8F 06 68: MOVL  #LIBS_UNECLIERR, RETURN_STATUS 7 0 
2 bo 099 $: MOVL RETURN_STATUS, RO : 0 


; Routine Size: 157 bytes, Routine Base: _LIBSCODE + O1A5 
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Ll 
; $38 1 ZSBTTL "LIBSSET_LOGICAL - set supervisor mode Logical name’ : 
3; 6 1 GLOBAL ROUTINE CIBSSET_LOGICAL ( ' set supervisor noge logical name : 
: ° 1 1 LOGNAME : REF SBBLOCK, ! Logical name string escriptor : 
3 § 38 1 VALUE : REF $BBLOCK, ' equivalence name string descriptor : 
3; 6 97 1 TABNAM : REF $BBLOCK ' lo ical name table : 
; 624 38 1 ATTR: REE seecockt4), i attributes : 
; 625 99 «1 ITMLST REF SBBLOCK ! Address of itemlist : 
3; 6 § 900 1 )s= : 
3; 6 901 1 3 
; 628 9 § 1 !++ ; 
3 ? 2 n't : FUNCTIONAL DESCRIPTION: : 
; 631 308 1: This routine provides a method by which a non- ftv; toged program can ; 
; 6 ¢ 9 1! create/modify supervisor sods jo ical names. The logical name given ; 
; 6 9 1! by logname is created or modified to have the equivalence name . 
; 6 9 3 1} specified by value. ; 
; 635 909 1! The user may apes tty attributes for the logical name and may : 
; 6 910 1! specify which ogigal name table is to be used. > 
; 637 Batt 1! Instead of specifying a single pyurvstence string, via VALUE, : 
3 O38 Bai6 ! the caller may specify an item List to give multiple equivalence strings. : 
: 640 0914 1! The STRNLNM system service can be used to obtain the value of é 
; 641 915 1! supervisor mode logical names. The routine is equivalent to the ASSIGN : 
3 oe 218 .? or DEFINE DCL command. ; 
: 64 917 1! : 
3; 644 0918 1 ! CALLING SEQUENCE: 3 
> 645 0919 1! F 
; 646 0920 1! ret_status.wlc.v = LIBSSET_LOGICAL ( : 
3; 647 0921 1! Logname.rt.dx : 
3; 648 09 ¢ 1! » value.rt.dx : 
3 649 09 1! » tabnam.rt.dx) F 
; 650 0924 1! , attr.rlu.r ; 
3; 651 0925 1! » itmlst.ra.r]) 3 
3 $36 09 $ 1! : 
3; 6 09 1 ! FORMAL PARAMETERS: : 
3; 654 0928 1! $ 
3: 655 0929 1! logname.rt.dx - A string, passed by descriptor, which contains the : 
3 $36 +3 } supervisor mode logical name to be created or modified. : 
: rey + 7! value.rt.dx -A string. passed by descriptor, specifing the value 3 
; 659 9 1! to be given to the supervisor mode logical name. 3 
3; 660 934 1! If omitted, an itemlist must be present to specify the 3 
: 661 3 5 ; value(s) of the logical name. ; 
3 £0 9 $ 1! tabnam.rt.dx =- Name of the table in which to create the logical name. ; 
3 O88 ao : If omitted, the LNMSPROCESS table is used. : 
; 668 0940 1! attr.rlu.r - Logical name attributes. See the description of 3 
: 66 941 1! the system service SCRELNM for more details. 3 
; 668 38 1! Current ty available attributes are 3 
; $6 945 1! LNMSM_CONFINE and LNMSM_NO_ALIAS. 3 
: 6 944 1! If omitted, no special attributes are established. 3 
; 671 45 1! However, if no table or itemlist is specifie : 
: 678 4g 1 | then the attribute LNMSM_CRELOG is defaulted in. : 
: ra 1! If ng itemlist is specified, then the translation 3 
; 675 3 attributes LNMSM_CONCEALED and LNMSM_TERMINAL may : 
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ye 000 LIBSSET_LOGICAL = set supervisor mode logical n 1 30071382 96:55:23 VMSLIB’SRETLISCL ICAL 69251 awe (6) 
; 67 1! also be specified here, The ly to the 
; 67 3 1! equivelence string string specitied by the VALUE 
: of8 2 ! parameter. 
; 680 954 1! If an itemlist is specified. then the itemlist will 
; 681 955 1! contain the translation attributes for each 
; ore 2 § ! } equivalence string in the itemlist. 
; 684 9 8 1} itmlst.ra.r The address of an item List describing the 
; 685 959 1! equivalence name(s) for this pop tcet name. 
3 rt] 960 1! See the description of the SCRELNM system service 
: ret 4d : for the format and meaning of the item List. 
: 689 968 1! If omitted, the Logical name will have just one 
; oay age : value, as specified by the VALUE parameter. 
: 69 366 1 | Either VALUE or ITMLST must be specified. 
; 69 Bee 1! If neither are specified, the LIBS_INVARG 
3 pet: 84 : error is produced. 
: 028 390 1! If both are specified, then the VALUE parameter 
; 69 971 1! is ignored. In this case, logical name 
; 698 972 1! attributes are permitted, but translation 
; $9) 975 1! attributes specified in the ATTR parameter 
: 700 0974 1! will be ignored (since these will appear in the 
; ait Bar? : itemlist). 
: 70 0977 1! The ITMLST parameter is only needed in the case where 
$ ye 978 1! you wish to create multiple equivalence springs 
: f 5 344 : or a single logical name (i.e. a search List). 
; 707 0981 { IMPLICIT INPUTS: 
3 Ae oe ; It is assumed that the logical name table specified already exists. 
: 711 985 1 ' IMPLICIT OUTPUTS: 
ea 9 1! 
Peo we i) 
; 213 389 | COMPLETION STATUS: (or ROUTINE VALUE:) 
; aS 0991 1/ SS$_NORMAL Normal successful completion 
; rg 336 1! SS$_SUPERSEDE Previous logical name replaced (success) 
3; 995 1! SS$_ACCVIO lLogname or value cannot e rea 
: 720 994 1! SS$_IVLOGNAM logname or value contains more than 255 characters 
: 7ei 995 1! SS$_BADPARAM One or more arguments had a bad value. 
im: § 238 1! For example, an unknown bit was specified in 
, £ 997 1! the attr bytes parameter. 
3; 726 998 1! Note that if an item List is sqect tied. 
3; 6fes 7! then translation attributes (if any) must 
oF § 1 1? appear in the item List and may not appear 
3; 7 1001 1! n the ATTR parameter. Only logical name 
3; 28 1 § 1! attributes may appear in the ATIR parameter 
3; 729 1 1! in that gare, 
,; £ 1 .s SS$_NOLOGNAM The specified logical name table does not exist. 
3; 731 1005 1! SS$_NOPRIV The caller lacks the necessary privieleges 
s 32 1 - to create the logical name. 
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ACK = CLI Callback Interface Proce 16-Sep-1984 AX-11 BLi 
AL = set supervisor mode logical n 1 f-sep-1964 98: $6: 3 ORE 


SS$_TOOMANYLNAM Logical name econelosiee of the table name exceeded 
the allowable depth (10 translations). 
SS$_DUPLNAM ts se. cre ate a logical aoe shet conflicts 
Logi cal name ersated at a hi gher access mode 
and whi che had the LNMSM_NO_ALIAS attr 
XLNMQUOTA Fxcogged logical name anpacé quota. 
NSF MEM Insufficient dynamic ry. 
INVARG Invalid Hh — vas Neither a VALUE nor an ITMLST 
was $ 
Or LO NAME was omitted. 
No CLI present to perforn function 
RR Unexpected CLI Err 
UMARG Wrong number of ar Queen s. Either fewer than two 
arguments or more than 5 arguments were specified. 


bute. 


SIDE EFFECTS: 
A supervisor mode logical name is created or modified. 


BEGIN 
BUILTIN 


ACTUALCOUNT 
NULLPARAME TER; 


REQ_BLOCK : BLOCK reLisc. SRVDESC, BYTE), ! A CLI request block 
Or STATUS : BLOCK TE], 
TION_A TTRIBU UTES 
GICAL_NAME_ATTRIBUT 
SPECIAL_-ITEM-LIST : UVECTOR (7): ! Special item List 


PESES 
, = 


'¢ 
t Check for proper number of arguments. 


IF ACTUALCOUNT() LEQU 1 
= SETURL CONTE? GTRU 5 
RETURN LIBS_WRONUMARG; 
‘ 
i Initialize CLI Command request block scout ne for the differences 
_between creating/modifying a logical name and deleting one. 


CHSFILL (0, CLISC_SRVDESC cL1_REQ BLOCK); 
CLI_REQ_BLOCK CCLT$SB_ROTYPE) ="CLISK CLISERV; 
CLITREQ"BLOCK ECLISW7SERVCOD) = CLISR_CREALOG; 


'¢ 
i Move in the logical name, the equivalence string, and the logical 
i name table name. 


<r 


v4.0 
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pee epee ab tabs a a 4 


9 
CALLBACK = CLI Callback Interface Proce b-se 1984 02:22:3 AX-11 Bliss-32 V4.0-74 P 1 
ET -CORTEAL - set supervisor mode logical n 730071382 96:55:23 VMSLIB.SRC (iscl tear B82: rc (3) 


' Give an error if the logical name is gaistee. 
Give an error if neither VALUE nor ITMLST is supplied. 


BSC 
BSS 


ae 
—e 


IF .LOGNAME EQL 0 
RETURN LIBS_INVARG; 
: MOVEDESC ( .LOGNAME, CLI_REQ_BLOCK CCLISQ_NAMDESC) ); 
4 IF NULLPARAMETER(VALUE) AND NULLPARAMETER(ITMLST) 
é RETURN LIBS_INVARG; 
: IF NOT NULLPARAMETER(VALUE) 
0 MOVEDESC ( .VALUE, CLI_REQ_BLOCK CCLI$Q_VALDESC) ); 
5 i* 
4 
5 


' NOTE: 
If both VALDESC and ITMLST are specified, DCL will ignore VALUE. 


1+ 
! Move in the table name if present. 
+4 If not present, DCL defaults to LNMSPROCESS. 


: uot NULLPARAME TER ( TABNAM) 
MOVEDESC ( .TABNAM, CLI_REQ_BLOCK CCLIS$Q_TABDESC] ); 


1+ 
! Move in the address of the item List (if present). 
: If not present, DCL will create an itemlist from CLI$Q_VALDESC. 


Z wat NULLPARAMETER(ITMLST) 
CLI_REQ_BLOCK CCLISL_ITMLST] = .ITMLST; 


te 
: Move in the address of the attributes (if present). 


_ NULLPARAME TER (ATTR) 
CLI_REQ_BLOCK CCLISL_ATTR] = .ATTR; 


If CLISQ_TABDESC, CLISL_ITMLST, and CLISL_ATTR are all 0, 
then DCL"defaults in the attribute LNMSM_CRELOG, i.e. 
the call back looks Like a V3 call back. 


ee ee a ee ee ee a ee a 
a kd ad dd dd od md md = BE QHOODO QO OOOO QOOOCOOCOOOOOOCOSCOSOOOO 


—— 29 OOO ooo oovownowovovuond 


Ss= 


LAPSE} =CALLBAC 


HEA RAE "Se cotns,tnsattsg tate HEREIN RGB Hella lehc ctl". 


"ono 


! If the caller has specified translati ectereuses in ATTR 

: ~ sepeees, fe a logical name attributes) is wernally 
‘a because translation eirtbetes” should go in 
; the item nlistee “govever as a convenience to RTL users who tind 
; ¥,%0 emlists, we allow translation attributes to 
' occur if no seniiere ts specified. In that case, we have to go 
;_through the trouble of building an itemlist for him. 


eae rtittee AND NOT NULLPARAMETER(ATTR) 


BEGIN ! Check for translation r*VECTORES 
BIND ATIR VECTOR = .ATTR tha 4,BYTE), 


WONAUES WI —OOO~ 


DPUPPPIA SMI 


rs R-VALUE = .ATTR 
1+ 
j ! The first byte of attributes are logical name attributes. 
! The second ce of attributes are translation attributes. 
5 i. The other 2 bytes are reserved for VMS use. 
7 
IF .ATTR_VECTORC1] NEQ 0 
69 THEN 
70 BEGIN ! Build special itemlist 
7 BIND EQuiv_ STRING. DESC = CLI_REQ_BLOCKCCLISQ_VALDESC] : SBBLOCK; 
7 
Br Create translation attributes from the specified attributes. 
f : 
Bi TRANSLATION_ATTRIBUTES=.ATTR_VALUE AND 2X°FFOO'; 
14 
fF j treats logical name attributes from the specified attributes. 
88 


LOGICAL_NAME_ATTRIBUTES=.ATTR_VALUE AND 2X'FF*; 


SPECIAL_ITEM_LISTCOJ=LNM$S_ATTRIBUTES*16+4; 

SPECIAL-ITEM“LISTL1 }i=TRANSLATION_ ATTRIBUTES; 

SPECIAL ITEM— Liste 

SPECIAL_ITEM tees hers STRING*16+.EQUIV_STRING DESCCDSCSU_LENGTH]; 
SPECIAL-ITEM-LIST 4}s =f STRING_DESCCDSCSA_POINTER 
SPECIAL-ITEM-LISTLS 

SPECIAL_ITEM_LISTL6 ' no more entries 


'¢ 
i Store specially revised attributes and item List in 
- the request block. 


SSLESEANLSS 


CLI_REQ_BLOCKCCLISL “TTA TaoSPE CL NAME At TOI SOTES: 
CLITREQ-BLOCKCCLISL-ITMLSTJ=SPECIAL_ITEM_LIST 


END ! Build special itemlist 
END; ' Check for translation attributes 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 P 3 L 
Woe 000 LIBSSET “COSTE AL - set supervisor mode logical n 12286871382 96:35:29 VMSL1IB.SRC (iecl tear B82; noi Bi Vv 
; 904 117 
; 5 117 + 
; 1} } Create or modify the supervisor mode logical name. 
: 90 11 RETURN_STAT YSSCLI (CLI_R 
208 i § E STATUS = SYSSCLI (CLI_REQ_BLOCK) 
; 910 1184 ve 
: ae 1} 5 } Adjust error return status, if any. 
3 318 i 3 iF WoT «RETURN_STATUS AND (.RETURN_STATUS CSTS$V_FAC_NO] EQL CLIS_FACILITY) 
: 915 11 RETURN. STAT 
i 916 1196 eins 
; a 113) SELECTIONS eRETURN_STATUS OF 
: 919 1198 ftus INVREQTYP] : LIBS _NOCLI: 
; 920 1194 OTHERWISE) : LIBS"UNECLIERR; 
: 352 1198 END 
: 9 : 1199 5 
> 924 1198 RETURN .RETURN_STATUS 
3 Ves 1199 
: 926 1200 END; ! End of LIBSSET_LOGICAL 


007¢ 00000 ENTRY LIBSSET_LOGICAL, Save R2,R3,R4,R5,R6 > 0894 
56 000000006 00 9€ 90002 MOVAB LIB NACYZE SDESC_R2, ; 
5E 88 AE 9E 0000 MOVAB <-120(SP), SP : 
01 6C 91 0000D CMPB sé AP), #1 + 1047 
05 1B 00010 BLEQU 1$ ; 
05 6C 91 0001 CMPB Ss CAP), #5 : 1048 
08 18 001 BLEQU 2$ ; 
50 000000006 8F i 0017 1$: MOVL #LIB$_WRONUMARG, RO + 1050 
0054 «BF 00 6E oe 00 C a0 2$ MOVCS #0, (SP), #0, #84, CLI_REQ_BLOCK + 1057 
34 AE : 90 00028 MOVB #5, CLI_REQ_BLOCK : 1058 
5 AE 6 BO 00 MOVW #6, CLITREQ"BLOCK+1 + 1059 
04 A b 0 TSTL  LOGNAME : 1068 
2 0 BEQL 46 4$ ; 
50 04 AC 2 99 MOVL §_LOGNAME, RO : 1072 
JSB Ll SANALYZE_SDESC_R2 ; 
38 AE 1 B MOVW RI, CLI_REQ™BLOCKT4 ; 
C AE ‘ D F MOVL 2, CLI REQ_BLOCK+8 ; 
4F i 4 BLBC _——RET_STATUS, ; 
02 6¢ 1 0004 CMPB OO s«< APY, #2 > 1074 
1F BLSSU-3$ ; 
08 A : 48 TSTL (AP) : 
1 BNEQ $ : 
05 6¢ 9 3$: CMPB sé AP), #5 : 
1F BLSSU 4$ : 
a | ? TSTL gO CAP) ; 
g BNEQ $ 3 
50 000000006 8F D A 4$ MOVL  § #LIBS_INVARG, RO : 1076 
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CASSEL} .CALLBAC LIBSCL I CALLBACK - CLI Catlback Interface Proc 
v04- LIBSSET_LOGICAL = set supervisor mode logical 


00038822 = BF 6 ; 
50 000000006 68F ? 
50 000000006 8F 4 
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; Routine Size: 313 bytes, Routine Base: _LIBSCODE + 0242 


10 
G-Sep-1984 08:20:55 YAN=d1 BLing-32 v4.05742 


CMPL + ata #231458 
MOVL MLIBS_NOCLI, RETURN_STATUS 
MOVL MLIBS_UNECLIERR, RETURN_STATUS 


rm 


1193 


LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 1b-50 Sep-1 :3 AX-11 Bliss-32 V4.0-74 P 
ioe -600 LIBSDE ELETE LOGICAL = delete supervisor mode log 1 30071382 9: $6: ? VMSLIB.SR RCL Tcl teat. 892:1 mi 3B 
; 1 1 ZSBTTL "LIBSDELETE LOGICAL - reiety supervisor mode Stoeicet name' 

3 1 1 GLOBAL ROUTINE LIBSDE BLETE LO LOGICA supervisor mode logical name 
; 1 1 LOGNAME : REF ! lo ‘cai ot string descriptor 

; 931 1204 1 TABNAM : REF SBC OER” i table name 

3; F ¢ 1205 1 d= 

; 9 1 : 1 

; 934 1207 1 !44 

: 2 5 : 4 ! FUNCTIONAL DESCRIPTION: 

: 9 1210 1! This routine provides a method by which a non-privileged program can 
; 938 1e11 1 | delete a supervisor node logical none. The Logical none Aiven D by 

: 373 \ \¢ } logname is deleted from the specified or implied logical name table. 
: 941 1214 1! oo STRNLOG system service can be used to obtain the value of 

3 en 1215 1 pupery i90r mode logical names. The routine is equivalent to the 

: 94 1 18 1/ EASSIGN DCL command. 

3 944 jei7 1 

; 945 1218 1 ' CALLING SEQUENCE: 

; ase 1219 1! 

: at 4 : $9 : ret_status.wlc.v = LIBSDELETE_LOGICAL (logname.rt.dx C,tabnam.rt.dxJ) 
; 949 FORMAL PARAMETERS: 

: 951 1206 1 logname.rt.dx - A string, passed by descriptor, which contains the 

; 826 1225 1! supervisor mode logical name to be deleted. 

: 827 : 2 ’ Must be present. 

: 955 1228 1! tabnam.rt.dx - A string. ere by Sreeriprers, that contains the 

; 956 1229 1! name of the logical name table from which the 

s 69or 12030 1! logical —, is to be deleted. 

; 958 1231 1: If omitted e logical name is removed from 

: 228 \g ¢ i the oTNNEPROCE SS Logical name table. 

; 961 1936 | i impuicit inputs: 

; 206 1235 1/ 

3 eT ; $9 ' It is assumed that the logical name table specified already exists. 
: 965 1238 1! IMPLICIT OUTPUTS: 

3 208 1239 1! 

; 96 1240 1! NONE 

; 968 1241 1 

3 3 , ! tg } COMPLETION STATUS: (or ROUTINE VALUE:) 

: 971 1244 1! SS$_NORMAL Normal successful completion 

;. 1245 1! SS$-ACCVIO logname cannot be read 

; 87 1 $6 1! SS$—IVLOGNAM lLogname contains more than 63 characters 

; 974 12047 1! SS$-NOLOGNAM No such bogical name defined or logical name specified 
: 975 1 rt 1! was declared in executative or kernel mode 

; 97 1249 1 S$S$_IVLOGTAB Invalid log {eal name table specified 

s P7 1250 1! SS$_NOPRIV Caller lacks the necessary privilege to delete 

; (97 1 23 1 the logical name 

; oF 1 § 1 / SS$_TOOMANYLNAM Logicat name translation ° the table name exceeded 
; 1 1 the o teuene depth (10 translations) 

; 981 1254 1! LIB$_INVARG Invalid argumen 

3; 9 § 1055 1! LIBS_-NOCLI No CLI present to to ferters function 

; 9 1 § 1! LIBS- UNECLIERR Unexpected CLI E 

s. > 1 1! LIBS"WRONUMARG No arguments specitied or more than two specified. 


———_——- —___—___—_ rc- 


LIBSCLI_CALLBAC LIBSCLI SLLBACE - CLI Callback Interface Proce 16-50 -1984 :3 AX=11 Bliss-32 V4.0-74 Page 27 
ye 000 Li IBSDELETE ct GICAL = delete supervisor mode log 1 sats yi 96 $6: 3 VMSLIB.SR RIL IBCLICAL.B52;1 ° 3} 
3 5 1 . 

; 3 } 33 } SIDE EFFECTS: 

: 9 1 4 1 i A su vpecv jeer mode logical name is deleted from the specified or 
: 3 : ? : implied logical name table. 

: 991 1064 1 i= 

3 836 1265 1 

; 99 1 ¢ BEGIN 

: 994 126 

; 995 126 BUILTIN 

; 338 1 § ACTUALCOUNT 

; 1 NULLPARAME TER; 

: 399 1553 LOCAL 

; 1000 1 8 ELI REQ : BLOCK ppt 4 haps: BYTE], ! A CLI request block 
; 1001 1274 RETORN °sth : BLOCK (4, BYTE] 

3 Ie 1275 

: 100 127 1+ 

3 se : j check for proper number of arguments. 

:1 127 

3 1S09 1 HY IF ACTUALCOUNT() EQLU 

: 4 : + OR - eater GTRU 

: 1010 68 RETURN LIB$_WRONUMARG; 

: Sig : 85 Initialize CLI Command request block. 

: 1914 1 Ha CHSFILL (0, CL sc TEBVDES se Gti REQ_BLOCK); 

> 1015 1 88 CLI_REQ_BLOCK ="CLISK CLISERV; 

3 1016 1289 CLI “REQ “BLOCK cL T38- ROTveE) = CLISR _DELELOG; 

: ible 158) 5 16 

: 1019 3 i Move in the logical name. 

> 1021 1294 

3 19 § i 95 MOVEDESC ( .LOGNAME, CLI_REQ_BLOCK CCLISQ_NAMDESC] ); 

: 19 4 1 38 ‘+ 

3: 1025 1298 i Move in the table name, if specified. 

3 18 $ } +4 3 If not specified, DCL willd efault in LNMSPROCESS. 

:1 1301 

; i 3 ! oe 4 NOT NULLPARAMETER( TABNAM) 

; } ; : 1 MOVEDESC ( .TABNAM, CLI_REQ_BLOCK CCLISQ_TABDESC) ); 

:1 1 1+ 

3 i : } _Delete the supervisor mode logical name. 

: : } 09 3 RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 

31 8 1 i? '¢ 

: ' 3 ' \§ Adjust error return status, if any. 

: 1041 1314 IF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTSSV_FAC_NO] EQL CLIS_FACILITY) 


LIBSCL] CALLBAC 
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" - ALLBACK = CLI Callback Interface Proce 1b-Sep-1984 96:86:33 AX-1 


1 Bliss-32 V4.0-74 
E_LOGICAL = delete supervisor mode log 1 p-1 VMSLIB SRESL SCL ICAL -B82s1 


RN 
N”~ 

SELECTONE .RETURN_STATUS OF 
Feus INVREQTYP3 : LIBS_NOCLI; 
COTHERWISE : LIBS"UNECLIERR; 
END 


END; ! End of LIBSDELETE_LOGICAL 


007¢ 000 .ENTRY LIBSDELETE_LOGICAL, Save R2,R3,R4,R5,R6 
56 000000006 00 3 999 HOVAB LIBSANALYZE_SDESC_R2, R6 
6C % 000D STB —s- CAP?) 
05 13 O000F BEQL =ss«o1$ 
02 6C 91 00011 CMPB 3s CAP), #2 
08 18 0014 BLEQU 2$ 
D : MOVL § #LIBS_WRONUMARG, R 
50 000000006 8F 0 0016 1$ MOV 1B$ 0 
Vv e @ e a L JR BLO K 
00 6E 00 $e 9001 2$ MOVCS #0, (SP), #0, #84, CLI_REQ_BLOC 
6E 08 90 000 $ MOVB #5, CLI_REQ_BLOCK 
01 =A 07 B0 000 MOVW #7, CLITREQ"BLOCK+1 
5 04 AC 00 90 D MOVL  LOGNAME; 
66 if 031 JSB LIBSANALYZE_SDESC_R2 
04 AE 1 8B 44 3 MOVW Ri, CLI_REQ_BLOCK#4 
08 AE 38 DO 000 MOVL 2, CLI REQ_BLOCK+8 
46 EY 0038 BLBC = RET_STATUS, 
02 6C 91 0003E CMPB «APY, 
16 1F 00041 BLSSU3$ 
08 AC D5 00043 TSTL (AP) 
7=«1 0046 BEQL $ 
50 08 aC D0 0004 MOVL _ TABNAM, RO 
6 1 O94¢ JSB LIBSANALYZE_SDESC R2 
16 AE 1 BO 0004 MOVW R1, CLI_REQ~BLOCK? 
18 AE ‘ D 09 MOVL 2, CLI REQ“BLOCK* 4 
28 E BLBC _—-RET_STATUS, 
E DD 3 3$: PUSHL SP 
000000006 00 1 FB CALLS #1, SYSS$CL 
1F E BLBS RETURN StAtUs. 5$ 
50 0c 1g i 3 CMP ZV #16, #72, RETURN_STATUS, #3 
00038822 8F : CMPL RETURN. STATUS, #231458 
50 000000006 &F 6 i ROVL #LIBS_NOCLI, RETURN_STATUS 
50 000000006 8F 00 i 4$: MOVL § #LIBS_UNECLIERR, RETURN_STATUS 
4 00084 5$: RET 


roe if 
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; Routine Size: 


LIBSCLI 
LIBSDEL 


ef 


ALLBACK = CLI Callback Interface Proce 1 
E_LOGICAL = delete supervisor mode log 1 


133 bytes, Routine Base: _LIBSCODE + 0378 


Ie 


Sep-1 
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AX=11 Bli 
VMSLIB.SR 


RCIL tact Teac. 7382; :1 
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H 
CLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 2 0 
DI RBLE-CTRL © disable CLI out-of-band char 132308-1 38% 96:55:29 VMSLIB.SRC (iscl tea 88231 ers BS 
ZSBTTL a te tg CTRL = disable CLI out-of-band character(s) handler’ 
GLOBAL ROUTINE LIBSDISABLE_CTRL ( ' disable CLI out-of-band 
DISABLE_MASK : REF VECTOR C, LONG) ! disable bit mask 
re PREVIOUS _MASK : REF VECTOR C, LONG i previous enable bit mask 


14 
' FUNCTIONAL DESCRIPTION: 


This routine disables CLI processing for out-of-band the characters 

identified by DISABLE_MASK. When normal CLI processing for one or 

more out-of-band characters is disabled, a user program can intercept 

ond pees to them. There are no privilege requirements for calling 
s routine, 


Currently, this routine avprerte disabling of CLI out-of-band 
prgeces ne for CTRL=T and CIRL-Y when the DCL CLI is in use, ard for 
TRL=¥ when the MCR CLI is in use. The macro S$LIBCLIDEF defines the 
two masks used for disabling processing for these two out-of-band 
characters as follows: 

LIBSM_CLI_CTRLT mask for CTRL=-T 

LIBSM_CLI_CTRLY mask for CTRL-Y 
If the masks are Vogicalty or'd together, processing for both 
out-of-band characters will be effected. 


CALLING SEQUENCE: 


ret_status.wic.v = LIBSDISABLE_CTRL (disable_mask.rl.r 
C, previous_mask.wl.r J] ) 


FORMAL PARAMETERS: 
disable_mask.ril.r = the mask controlling which out-of-band 


361 characters the CLI should ignore. Values 

306 should be selected from one of, or the logical 
36 OR of more than one of: 

eee LIBSM_CLI_CTRLT 

65 LIBSM_CLI_CTRLY 

36 These symbols are defined in SLIBCLIDEF. 


previous_mask.wl.r - a longword into which will be stored a mask 
having the same format as disable_mask, but 
which represents the enabled state for all 
out-of-band character processing before 
disable_mask is applied. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: (or ROUTINE VALUE:) 


SS$_NORMAL Normal successful completion 


me ee me ee ee ed ae od  — - — — —  —  — — — s tems 
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LIBSCLI_CALLBAC LIBSCLI_ CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 P 1 
ibe2000 LIBSDISABLE_CTRL - disable cli out-of-band char 1 ~3007 1382 96:58:23 VMSLIB SRE SLIBCL ICAL 89251 eee (B) 
' LIBS_INVARG Disable_mask has an uprecegnize bit set 
: LIB$_NOCLI No CLI present to perform function 
; LIBS_UNECLIERR Unexpected CLI Error 
i SIDE EFFECTS: 
2 CLI out-of-band processing of one or more characters is disabled. 
9 ine 
9 
2 BEGIN 
9 BUILTIN 
9 NULLPARAMETER; 


OCAL 
CL 
R 


I_ REQ BLOCK : BLOCK petisc SRVDESC, BYTE], ! A CLI request block 
ETORN_STATUS : BLOCK (4, BYTE); 


'¢ 

Initialize CLI Command request block. 

" CHSFILL (0, CLISC_SRVDESC, CLI_REQ BLOCK); 
K ROTY 


CLI_REQ_BLOCK CCLT$B_ROTYPE) ="CLISK CLISERV 
CLITREQ"BLOCK CCLI$W-SERVCOD] = CLISR 


ht ed DISAOOB; 
CLILREQ_BLOCK CCLISL_NEW_MASK] = .DISABLE_MASK (0); 

1+ 

Request CLI out-of-band processing be disabled. 


] 

S 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

L 
RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


¢ 


MEAN 0 OONOAUE WN OC OONOAUE WN “OO ONOUE WN DNASE —OOONOw we 


' 
! If requested, return previous out-of-band enabled mask. 
It may be good. 


IF NOT NULLPARAMETER (2) 
PREVIOUS_MASK [OJ = .CLI_REQ_BLOCK CCLISL_OLD_MASK); 


4 
Adjust error return status, if any. 


IF NOT .RETURN STATUS AND (.RETURN_ STATUS CSTS$V_FAC_NO] EQL CLIS_FACILITY) 
RETURN, STATUS = 
SELECTONE .RETURN_ STATUS OF 
CL1S_BADCTLMSK) : LIBS_INVARG; 
CLISSINVREQTYPS LIB$"NOCLI; 
COTHERWISE : LIBS"UNECLIERR; 
END; 
RETURN (.RETURN_STATUS) ; 


ee ee ee rr i ee ee ees 
ce ce ee ce ee ce a ce ce ee cc ee ee DD De ee 8 ed ed ed 2d 2d od 


SACO ae et eh yt tht at Re yh RR ee ty te ere tN A aN ee eR ey oe 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 18-50 Sep-1984 :3 AX-11 Bliss-32 V Pa 2 
vbe~000 LIBSDISKBLECCIRG = disable Cli outcofeband cher locsep-19RG $$.59:47 — FYmsuiersnediitact few 69231 o 35 
: 1170 1449 ; 
: 1171 144 END; ! End of LIBSDISABLE_CTRL 
003¢ SENTRY LIBSDISABLE CTRL, Save R2,R3,R4,R5 : 1329 
SE aC AE 3 MOV =B4(SP), SP~ : 
0054 8F 00 6E C movcS #0, (SPS, #0, #84, CLI_REQ_BLOCK ; 1408 
bE § 9 i move #5, CLI REG. LOCK > 1409 
4 AE dD 8B mMOVW #1, CLT_REQ BLOCK+1 + 1410 
4 AE 06 BC D 15 MOVL  aDISABLE-MA MASRe ‘tL _REQ_BLOCK+4 + 1411 
i: DD OOO1A PUSHL SP + 1416 
000000006 00 FB O001¢ CALLS #1, SYS$CLI ; 
2 6¢ 9 CMPB tab) 2 : 1422 
A iF 000 6 BLSsu. 1$ ; 
08 ac 00 TSTL CAP) : 
05 1 8 BEQL=Ssé1S ; 
08 8 08 Ar 00 MOVL  CLI_REQ BLOCK+8 @PREVIOUS_MASK > 1424 
0 50 £ 90 : 1$ BLBS REC TORN SATU > 1429 
03 50 0c 19 58 $ 3 cnet " aT RETURN STATUS, #3 : 
Q00388CA BF 85 D1 $6 ¢ CHL RETURN, STATUS, #231626 > 1435 
08 if 004 BNEG 2 ; 
50 000000006 8F Bo 0045 MOVL ALIBS_INVARG, RETURN. STATUS 
00038822 = 8F 50 D| 9040 28 CMPL —RETURN_STATUS, #231458 ; 1436 
50 000000006 $F 06 0056 MOVL #LIBS_NOCLI, RETURN_STATUS 
50 000000006 8F DO 0056 3$: MOVL § #LIBS_UNECLIERR, RETURN_STATUS : 1437 
04 00065 4$: RET : 1443 


; Routine Size: 102 bytes, Routine Base: _LIBSCODE + 0400 


K 10 
ack Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 
CLI out-of-band cha 1 m Ht 99:36:35 VMSLIB.SRCILIBCL 
TRL 


enable CLI out-of-band character(s) handler’ 
( ' re-enab ¢ CLI out-of-band 
OR C, LONG) ! enable bit mask 

ECTOR C, LONG) 


Lips ~CALLBAC CK = CLI Ca 


A at 
RL = re-enable 
L 
L 


v4 


mo 
eo 


oT 86 
ICAL .852;1 


t 
t 
re- 
CTR 
VEC 
FV ! previous enable bit mask 


'o+ 
! FUNCTIONAL DESCRIPTION: 


This routine re-enables CLI processing for out-of-band the characters 
identified by ENABLE_MASK, presumable after such processing has been 
disabled by a call to L186] SABLE TRL. There are no privilege 
requirements for calling this routine. 


Currently, this routine supports re-enabling of CLI out-of-band 
erpcess ine for CTRL-T and CTIRL-Y¥ when the DCL CLI is in use, and for 
TRL-Y¥ when the MCR CLI is in use. The macro S$LIBCLIDEF defines the 
two masks used for enabling processing for these two out-of-band 
characters as follows: 

LIBSM_CLI_CTRLT mask for CTRL-T 

LIBSM_CLI_CTRLY mask for CTRL-Y 
If the masks are sercelty or'd together, processing for both 
out-of-band characters will be effected. 


CALLING SEQUENCE: 


ret_status.wlc.v = LIBSENABLE_CTRL (enable_mask.rl.r 
C, previous_mask.wl.r ] ) 


POA OMMINAVIVIVNVIVIVINILS SELLE Wm 


COODOOOOOOM@WO 


FORMAL PARAMETERS: 


enable_mask.rl.r - the mask controlling which out-of-band 
characters the CLI should process. Values. 
should be selected from one of, or the logical 
OR of more than one of: 
LIBSM_CLI_CTRLT 
LIBSM_CLI_CTRLY 
These symbols are defined in $LIBCLIDEF. 


previous_mask.wl.r - a longword into which will be stored a mask 
having the same format as enable_mask, but 
which represents the enabled state for all 
out-of-band character processing before 
enable_mask is applied. 


RONMIPIPOPINGNPININD — OO OO Oo te J Wy tt ert me Pe 


0009 09 C909 08 INI NNN NOOO O 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: (or ROUTINE VALUE:) 


SS$_NORMAL Normal successful completion 
LIBS_INVARG Enable_mask has an unrecognized bit set 
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vet-thd- CALLBAC 
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StaNowew ~ 
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CALLBACK = CLI he k Interface Proce 18-50 Sep-1984 02:22: AX-11 Bliss-32 V Pee 
LE_CTRL = re-enable CLI out-of-band cha 1 308-1 38e 96:58:23 VMSLIB’S SREIL 18cLl L.B52;1 
: LIB$_NOCLI No CLI present to perform function 
ties -UNECLIERR Unexpected CLI Error 
i SIDE EFFECTS: 
CLI out-of-band processing of one or more characters is enabled. 
lee 
BEGIN 
BUILTIN 
NULLPARAMETER; 
aa REQ at} : BLOCK vat is Mapas BYTEJ, ! A CLI request block 
RETORN_STA : BLOCK BYTE) 


rs 

Initialize CLI Command request block. 

" CHSFILL (O, CL s¢ rSRvess LI_REQ_BLOCK); 
CLI_REQ_BL ck TYPE) ="CLISK CLISERV; 
CLI-REQ"BLO ct T38- SERVCD 0D] = ELISRE NABOOB; 
CLI-REQ_ “BLOCK CLISL-NEW_MASK) = ENABLE MASK (0); 


'¢ 
a Request CLI out-of-band processing be enabled. 


RETURN_STATUS = SYSSCLI (CLI_REQ_BLOCK); 


+ 


' 
! If requested, return previous out-of-band enabled mask. 
* It may be good. 


IF NOT NULLPARAMETER (2) 
PREVIOUS_MASK (CO) = .CLI_REQ_BLOCK CCLISL_OLD_MASK]; 


'¢ 
1 Adjust error return status, if any. 


IF NOT .RETURN_STATUS AND (.RETURN_STATUS CSTSSV_FAC_NOJ EQL CLIS_FACILITY) 
RETURN. STATUS = 
SELECTONE .RETURN_STATUS OF 
CLI$ -BADCTLMSK) : LIBS. INVARG; 
cise S_INVREGTYP : LIBSTNOCL 
OTH L1B$ ~UNEELIERR: 
END; 
RETURN (.RETURN_STATUS); 


LIBSCL]_CALLBAC LIBSCLI_ CALLBACK = CLI Callback Interface P 16- 
vou~000 band chs 12- 


LIBSENABLE_CTRL = re-enable CLI out-of-band ch 


; 1287 1558 1 END; 
yo ae 
0054 8F 00 6€ 00 C 
if . a Be 
be AE 04 ee 4 iF 
000000006 F 1 
a BBs 
oe Hise 
08 BS 08 AE 00 00020 
0 50 € 0 ¢ 
03 50 oc s i3 3 ; 
Q00388CA BF § 9 o4§ 
50 000000006 8F 06 a904¢ 
00038822 =F 3g } ooee 
50 000000006 8F 06 Beee 
50 000000006 8F 00 44 
04 0006 


; Routine Size: 102 bytes, Routine Base: _LIBSCODE + 0466 
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! End of LIBSENABLE_CTRL 


AX-11 eT V4.0-74 
VMSLIB.SRCIJLIBCLICAL.852;1 


NABLE CTRL, Save R2,R3,R4,R5 
SPS, #0, #84, CLI_REQ_BLOCK 
LI 


CLT REO BL OCK#1 
@ENABLE_MASK> CLI_REQ_BLOCK+4 


#1, SYSSCLI 

(AP), #2 

1$ 

(AP) 

CLI_REQ_BLOCK+8, @PREVIOUS_MASK 
RETORN STATUS. 4 

#16, #72, RETURN_STATUS, #3 
RETURN, STATUS, #231626 


#LIBS_INVARG, RETURN_STATUS 
RETURN_STATUS, #231458 
#LIBS_NOCLI, RETURN_STATUS 
#LIBS_UNECLIERR, RETURN_STATUS 


Pete Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Fe Ge Sse Ge Be Ge Ge Se 
—s 
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LIBSCLI_CALLBAC LIBSCLI_CALLBACK = CLI Callback Interface Proce 16-Sep-1984 02:22:3 AX-11 Bliss-32 V4.0-74 Pa ‘i 
yoe~000 LIBSSBUTLD_SYMBOL_ = Build a symbol name st 127388-1382 96:55:23 VMSLIB.SRC (iecl teat 64251 9488 
3 3 1559 1 ZSBTTL "LIBSSBUILD_SYMBOL_NAME = Build a symbol name string’ 

3; 1 1 1 ROUTINE LIBSSBUILD SYMBOL_NAME ( ! build a Syapet name string 

3 1 1 1 SYMBOL: REF BLOCK’(, Byte}. ! input symbol string descriptor 
3 1 1 § 1 DYNSTR: REF BLOCK BYTEJ, : te string descriptor 

; i s CLI_SYMBOL: REF BLOCK C, BYTE) i CLI symbol string descriptor 

: i i eg i les 

3 : : ? : FUNCTIONAL DESCRIPTION: 

: 1 15 5 i Using the spring pointed to by SYMBOL, LIBSSBUILD_SYMBOL_NAME builds a 

3 1 1 01! dynamic tyr ng, pointed to by CLI_SYMBOL, which has been upcased and 

3 3 1571 1! has trailing (anks deleted. The str ng pointed to by SYMBOL is also 

3: 1 1 ie 5 tested + ol validity as a symbol name; the pres gherecter must be 

; 130 1575 1! alphabetic or $ or _, there must be less than 255 characters in the name 
: 1304 1574 1! (trailing blanks excluded), and there must be at least one non-blank 

3 : 05 120? : } character in the name. 

:1 $$ 1899 1 i SCRATCH is a string descriptor into which the actual descriptor for 

: 1308 1378 gg the dynamic string will be written. The calling procedure must use 

: ; 4 a4 : } this descriptor to deallocate the dynamic string. 

: 1311 138) 1! If this routine detects an error after it has allocated the dynamic 

3; 1 \¢ 1286 1! ors it will deallocate the dynamic string thus freeing its caller 

3 ; \; 133) : : from that responsibility. 

; 1315 1385 1 i CALLING SEQUENCE: 

> 1317 1389 ¢ ret_status.wlc.v = LIBSSBUILD_SYMBOL_NAME (symbol.rt.dx, 

: 1318 1588 1! ogres alge 

3 133 138) ' cli_symbol.wt.dx) 

: HF 1391 | FORMAL PARAMETERS: 

31 1398 1! symbol.rt.dx - A string, passed by descriotor, which contains the 

3 1335 1298 : } original symbol name. 

:1 $ 1398 1 dynstr.wt.dx - A etring descriptor into which the descriptor for the 

3 3 1597 1! actual dynamic string used to contain the converted 

; 1328 1598 1! symbol name will be written. The calling procedure 

3; 1329 1599 1! must use this descriptor to deallocate the dynamic 

; ' : 1699 : string. 

:1 : 1608 1! cli_symbol.wt.dx - A string, passed by descriptor. into which the 

3 1605 1! processed symbol name will be placed. This routine 

31 1606 1! creates a new dynamic string in this descriptor: the 

: : 5 1693 , contents of the descriptor upon entry are overwritten. 

; ! 3? 1807 { IMPLICIT INPUTS: 

; \ ip 1608 } LIBSAB_UPCASE the address of an upcase translation table. 

; 1341 1611 i IMPLICIT OUTPUTS: 

eS 8 tee 

: 1345 1615 1! COMPLETION STATUS: (or ROUTINE VALUE:) 


; 


-o 


OLN 


"1 
ck Interface Proce Ib-3¢ =1984 02:22:3 AX-11 Bliss-32 V4.0-74 P 7 
Fe ee eet mane ce ientecetone $8.59:c) Poms te sees tech tee ese. age 43) 


NORMAL Normal successful completion 
_INVARG sTT"er eee contains more than 255 characters or is 
n 
INVSYMNAM prabot name does not begin with a letter 
grrshie v. Insufficient virtual perory. por dynamic string 


SS$_NOR 
L1IBS_IN 
LIB$_ 
LIBS_ 
Other completion stati from LIBSANALYZE_SD 


SIDE EFFECTS: 


WARNING: 
Although this procedure performs some checks on the validit 
byqee. names passed to it, some symbol name considered vali 


y of 
db 
is procedure will be considered invalid by DCL. 4 


BEGIN 


ADDRESS, ! a string address 
LENGTH : WORD ' a string length 
Le ale ouT_PfR, two pointer variables 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

STATUS; ! a return status value 

+ 
! Gather information about ae symbol name string 
4 

4 

4 

| 


4 

4 

4 

4 

4 

r } and build pointer input symbol name string. 

4 . 

4 STATUS = LIBSANALYZE_SDESC_R2 (.SYMBOL; LENGTH, ADDRESS ); 
5 IF NOT .STATUS THEN RETURN .STATUS; 

: IN_PTR = CHSPTR( .ADDRESS, .LENGTH = 1 ); 

5 '¢ 

5 ! Work backwards from the end of the string to locate 

55 ! the first non-blank character; i.e. locate beginning 

28 of the trailing blanks. 

38 "LENGTH = 1 + 
65 8 
ogy Bet? FROM .LENGTH - 1 TO 0 DO 
666 IF CHSRCHAR( .IN_PTR ) NEQU 2C° * THEN EXITLOOP .J; 


am Pra = CHSPLUST .IN_PTR, -1 ); 


3 


END; 
IF .LENGTH EQLU 0 OR .LENGTH GTRU 255 THEN RETURN LIBS_INVSYMNAM; 


SSS. 


MO OOnNOu 


'¢ 
' Allocate a Gynente string and setup CLI symbol name 
; string descriptor. 


DYNSTR COSC$B_CLASS] = DSCSK_CLASS_D; 


Be Se Se Se Se Se Se Se Se Ge Be Se Be Sse Se Se Se Ge Se Se Se Ge Ge FH SH Se Ge Fe Se Ge Be oe Se Se Se FH SH Se SH SF Ss Ss Ss Se BHF Ss SHS Ss Oe Ge SF Se Se SH Ss 
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99 

1 
2 


arr 
GOODS 
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LIBSCLI_CALLBAC LIBSCLI peters, * CLI Callback Interface Proce 16-5 Sep-19 73 AX-11 Bliss-32 V4.0-74 
ibe 000 t1es$8u TLD_SYMBOL_NAME = Buita a symbol name st 1 730071 38e 98: $6: i? VMSLIB.SR RIL Tcl teal 89251 
3 1403 167 DYNSTR COSC$B_DTYPE] = DSCSK_DTYPE_T; 
; 1e02 1833 DYNSTR fost su-venctag |! Re 
: 1405 1675 DYNSTR CDSCSA~POINTER] = 0; 
: 14 1676 STATUS = LIBSSGET1 DD( LENGTH, .DYNSTR ); 
> 140 167 IF NOT .STATUS THER RETURN .STATUS; 
: 1408 1678 CLI_SYMBOL EDSCSA_POINTERJ = -DYNSER CDSCSA_POINTERI; 
: 1409 167 CLIZSYMBOL CDOSCSWILENGTH] = .LENGTH 
: 1219 ie ? \+ 
: \elg 12 ¢ _Upcase the symbol name. 
; 16i6 168% IN_PTR = CHSPTR( ADDRESS ) 
3 141 1685 OUT_PTR = CHSPTR( .CLI SYMBOL COSCSA -P0 OINTER] ); 
3 1416 1686 PUSTRANSLASES LIBSAB_UPCASE, .LENGTH; .IN_PTR, KC’ ', .LENGTH, .OUT_PTR ); 
: 121g 1884 \+ 
3 eh 195) Check for reasonable first character in symbol name. 
; 1289 1691 IF (CHSRCHAR( .OUT_PTR LSSU X%C'A’ OR CHSRCHAR( .OUT_PTR ) GTRU %C'Z') A 
; 1498 1936 (CHSRCHAR( .OUT_PTR ) NEQU %C'$" OR CHSRCHAR( .OUT_PTR ) NEQU %C'_') 
: 1426 1694 GIN 
3 1425 1695 LIBSSFREE1_DD( .DYNSTR ); 
: 1426 1696 RETURN LIBS_INV SYMNAM; 
: 1427 169 D 
3 1428 1698 ELSE 
3 URN JN L; 
1429 1699 RETURN SS$_NORMA 
3; 14350 1700 
> 1431 1701 END; ! End of routine LIBSSBUILD_SYMBOL_NAME 
OOFC 00000 LIBS$BUILD SYMBOL NAME : 
. WORD ve R2,R3,R4,R5,R6,R7 
5E 04 C i SUBL2 me 
50 04 ac 00 000 MOVL 
00000000G 00 16 i JSB VABOL RO, _SDESC_R2 
53 D ; F MOVL » R3 
6E 1 D 1 MOVL R1, LENGTH 
41 0 : 0 1 BLBC STATUS, 4$ 
28 6 1 MOVZWL LENGTH, R2 
7 3 C 1B ADDL2 ADDRESS, R2 
B 1 DECL IN_PTR 
51 4 C MOVZWL LENGTH, J 
11 8 BRB 
20 91 1$ CMPB {IN PTR), #32 
is 8 BNEQ 
D A DECL IN. PTR 
F6 F4 C 28: SOBGEQ “1$ 
3] .: F MNEG i, R1 
6E 1 a 3$: ADDW #1. Rt. LENGTH 
62 1 BEQL 
OOFF 8F ge 8 CMPW : NGTH, #255 
B 1A D BGTRU 
56 08 ac 00 F MOVL DYNSTR, R6 


$8 


66 Ceveoogy Ms 
0 
000000006 00 05 
49 

23 Of AC 
04 =A 4 Ab 
peta: 
5 04 Ad 

000000006 00 20 66 oF 
41 Hi 6) 

5A OF 69 

is 

24 6 

oe 6 
i 

000000006 00 % 
50 000000006 8F 

50 01 


; Routine Size: 166 bytes, Routine Base: _LIBSCODE 
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LASSE. } .CALLBAC LIBSCLI_ CALLBACK = CLI Callback Interface Proce 
v04- LIBSSBUTLD_SYMBOL_NAME = Build a symbol name st 
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#34471936, (R6) 
4(R6) 


UT_PTR), #90 
(OUT_PTR), #36 
(OUT_PTR), #95 

8$ 

R6 

#1, LIBSSFREE1_DD 
#LIBS_INVSYMNAM, RO 
#1, RO 


TR), #32, LIBSAB_UPCASE, - 


LIBSCLI_CALLBAC Lies LI_CALLBACK = CLI Callback Interface Proce hese $ep-1984 02:22:3 AX-11 Bliss-32 V4.0-7 P 4 
oe BSSBUTLD _SYMBOL_NAME = Butta a symbol name st 12-80 884 96:56:38 VMSLIB.SRCILIBCLICAL. 8 2;1 age 479 Vv 


: 1b? } | End of module LIBSCLI_CALLBACK 
: lee 1708) EM End of module LIBSCLI_CALLBAC 


: PSECT SUMMARY 

; Name Bytes Attributes 

: _LIBSCODE 1394 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

Be tye ay MB utter] Spee. Wee A, © - aia Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 38 0 581 00:01.0 

; COMMAND QUALIFIERS 

3 BLISS/CHECK CE LELD. INITIAL OPTIMIZE) /MOTRACE/LIS@L 1SSsL IBCLICAL/0BJ°08JS 1 1BCLICAL MSRC$:LIBCLICAL/UPDATE=(ENH$:LIBCLICAL 


3; Size: 1394 coge + 0 data bytes 
; Run Time: 4.2 

; Elapsed Time 1:07.4 

3; Lines/CPU Min: 990° 

3 Lexemes/CPU-Min: 37106 

3 meee | Used: 171 pages 

3; Compi ation. Complete 
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